home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / rrect_tlb.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-10-16  |  8.2 KB  |  145 lines
  1. unit RRect_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                  //
  5. // -------                                                                  //
  6. // The types declared in this file were generated from data read from a     //
  7. // Type Library. If this type library is explicitly or indirectly (via      //
  8. // another type library referring to this type library) re-imported, or the //
  9. // 'Refresh' command of the Type Library Editor activated while editing the //
  10. // Type Library, the contents of this file will be regenerated and all      //
  11. // manual modifications will be lost.                                       //
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11.1.63  $
  15. // File generated on 11/6/1999 3:11:02 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: D:\SDK6.0\SAMPLES\Delphi\Regens\RRect2\RRect.tlb
  19. // IID\LCID: {32E30FD0-3F6C-4D92-8860-38AD89B3601D}\0
  20. // Helpfile: 
  21. // HelpString: RRect Library
  22. // Version:    1.0
  23. // ************************************************************************ //
  24.  
  25. interface
  26.  
  27. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  28.  
  29. // *********************************************************************//
  30. // GUIDS declared in the TypeLibrary. Following prefixes are used:      //
  31. //   Type Libraries     : LIBID_xxxx                                    //
  32. //   CoClasses          : CLASS_xxxx                                    //
  33. //   DISPInterfaces     : DIID_xxxx                                     //
  34. //   Non-DISP interfaces: IID_xxxx                                      //
  35. // *********************************************************************//
  36. const
  37.   LIBID_RRect: TGUID = '{32E30FD0-3F6C-4D92-8860-38AD89B3601D}';
  38.   IID_IRoundedRect: TGUID = '{0F3C6867-EC4C-43E5-B709-B582D9C8AD21}';
  39.   CLASS_RoundedRect: TGUID = '{96446B45-0EAA-475F-B88F-41F0BDF02A16}';
  40. type
  41.  
  42. // *********************************************************************//
  43. // Forward declaration of interfaces defined in Type Library            //
  44. // *********************************************************************//
  45.   IRoundedRect = interface;
  46.   IRoundedRectDisp = dispinterface;
  47.  
  48. // *********************************************************************//
  49. // Declaration of CoClasses defined in Type Library                     //
  50. // (NOTE: Here we map each CoClass to its Default Interface)            //
  51. // *********************************************************************//
  52.   RoundedRect = IRoundedRect;
  53.  
  54.  
  55. // *********************************************************************//
  56. // Interface: IRoundedRect
  57. // Flags:     (4416) Dual OleAutomation Dispatchable
  58. // GUID:      {0F3C6867-EC4C-43E5-B709-B582D9C8AD21}
  59. // *********************************************************************//
  60.   IRoundedRect = interface(IDispatch)
  61.     ['{0F3C6867-EC4C-43E5-B709-B582D9C8AD21}']
  62.     function Get_ClassID: WideString; safecall;
  63.     function Get_Description: WideString; safecall;
  64.     function GetPropertyInfo(var Names: OleVariant; var Types: OleVariant; var IDs: OleVariant; 
  65.                              var Defaults: OleVariant): Integer; safecall;
  66.     function GetPageInfo(AGraphic: OleVariant; var StockPages: Integer; var Names: OleVariant): Integer; safecall;
  67.     function GetWizardInfo(var Names: OleVariant): Integer; safecall;
  68.     function GetEnumNames(PropID: Integer; var Names: OleVariant; var Values: OleVariant): Integer; safecall;
  69.     function PageControls(ThisRegenMethod: OleVariant; Graphic: OleVariant; PageNumber: Integer; 
  70.                           SaveProperties: WordBool): WordBool; safecall;
  71.     procedure PageDone(ThisRegenMethod: OleVariant; PageNumber: OleVariant); safecall;
  72.     function PropertyPages(ThisRegenMethod: OleVariant; PageNumber: OleVariant): WordBool; safecall;
  73.     function Wizard(ThisRegenMethod: OleVariant; WizardNumber: OleVariant): WordBool; safecall;
  74.     procedure OnGeometryChanged(Graphic: OleVariant; GeomID: Integer; ParanOld: OleVariant; 
  75.                                 ParamNew: OleVariant); safecall;
  76.     function OnGeometryChanging(Graphic: OleVariant; GeomID: Integer; ParamOld: OleVariant; 
  77.                                 ParamNew: OleVariant): WordBool; safecall;
  78.     function OnNewGraphic(grfThis: OleVariant; boolCopy: WordBool): WordBool; safecall;
  79.     function OnCopyGraphic(grfCopy: OleVariant; SourceGraphic: OleVariant): WordBool; safecall;
  80.     procedure OnPropertyChanged(Graphic: OleVariant; PropID: Integer; ValueOld: OleVariant; 
  81.                                 ValueNew: OleVariant); safecall;
  82.     function OnPropertyChanging(Graphic: OleVariant; PropID: Integer; ParamOld: OleVariant; 
  83.                                 ParamNew: OleVariant): WordBool; safecall;
  84.     procedure OnPropertyGet(Graphic: OleVariant; PropID: Integer); safecall;
  85.     function Draw(grfThis: OleVariant; View: OleVariant; mat: OleVariant): WordBool; safecall;
  86.     procedure Regen(grfThis: OleVariant); safecall;
  87.     property ClassID: WideString read Get_ClassID;
  88.     property Description: WideString read Get_Description;
  89.   end;
  90.  
  91. // *********************************************************************//
  92. // DispIntf:  IRoundedRectDisp
  93. // Flags:     (4416) Dual OleAutomation Dispatchable
  94. // GUID:      {0F3C6867-EC4C-43E5-B709-B582D9C8AD21}
  95. // *********************************************************************//
  96.   IRoundedRectDisp = dispinterface
  97.     ['{0F3C6867-EC4C-43E5-B709-B582D9C8AD21}']
  98.     property ClassID: WideString readonly dispid 1;
  99.     property Description: WideString readonly dispid 2;
  100.     function GetPropertyInfo(var Names: OleVariant; var Types: OleVariant; var IDs: OleVariant; 
  101.                              var Defaults: OleVariant): Integer; dispid 3;
  102.     function GetPageInfo(AGraphic: OleVariant; var StockPages: Integer; var Names: OleVariant): Integer; dispid 4;
  103.     function GetWizardInfo(var Names: OleVariant): Integer; dispid 5;
  104.     function GetEnumNames(PropID: Integer; var Names: OleVariant; var Values: OleVariant): Integer; dispid 6;
  105.     function PageControls(ThisRegenMethod: OleVariant; Graphic: OleVariant; PageNumber: Integer; 
  106.                           SaveProperties: WordBool): WordBool; dispid 7;
  107.     procedure PageDone(ThisRegenMethod: OleVariant; PageNumber: OleVariant); dispid 8;
  108.     function PropertyPages(ThisRegenMethod: OleVariant; PageNumber: OleVariant): WordBool; dispid 9;
  109.     function Wizard(ThisRegenMethod: OleVariant; WizardNumber: OleVariant): WordBool; dispid 10;
  110.     procedure OnGeometryChanged(Graphic: OleVariant; GeomID: Integer; ParanOld: OleVariant; 
  111.                                 ParamNew: OleVariant); dispid 11;
  112.     function OnGeometryChanging(Graphic: OleVariant; GeomID: Integer; ParamOld: OleVariant; 
  113.                                 ParamNew: OleVariant): WordBool; dispid 12;
  114.     function OnNewGraphic(grfThis: OleVariant; boolCopy: WordBool): WordBool; dispid 13;
  115.     function OnCopyGraphic(grfCopy: OleVariant; SourceGraphic: OleVariant): WordBool; dispid 14;
  116.     procedure OnPropertyChanged(Graphic: OleVariant; PropID: Integer; ValueOld: OleVariant; 
  117.                                 ValueNew: OleVariant); dispid 15;
  118.     function OnPropertyChanging(Graphic: OleVariant; PropID: Integer; ParamOld: OleVariant; 
  119.                                 ParamNew: OleVariant): WordBool; dispid 16;
  120.     procedure OnPropertyGet(Graphic: OleVariant; PropID: Integer); dispid 17;
  121.     function Draw(grfThis: OleVariant; View: OleVariant; mat: OleVariant): WordBool; dispid 18;
  122.     procedure Regen(grfThis: OleVariant); dispid 19;
  123.   end;
  124.  
  125.   CoRoundedRect = class
  126.     class function Create: IRoundedRect;
  127.     class function CreateRemote(const MachineName: string): IRoundedRect;
  128.   end;
  129.  
  130. implementation
  131.  
  132. uses ComObj;
  133.  
  134. class function CoRoundedRect.Create: IRoundedRect;
  135. begin
  136.   Result := CreateComObject(CLASS_RoundedRect) as IRoundedRect;
  137. end;
  138.  
  139. class function CoRoundedRect.CreateRemote(const MachineName: string): IRoundedRect;
  140. begin
  141.   Result := CreateRemoteComObject(MachineName, CLASS_RoundedRect) as IRoundedRect;
  142. end;
  143.  
  144. end.
  145.